home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Foxpro 2.6 {Windows} / ADDUSERS.PR_ / ADDUSERS.bin
Text File  |  1994-03-10  |  23KB  |  643 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 12/15/92            ADDUSERS.PRG               12:44:08 ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║                                                         ║
  7. *       ║ Microsoft FoxPro Application Development                ║
  8. *       ║                                                         ║
  9. *       ║ Copyright (c) 1992 Microsoft Corporation                ║
  10. *       ║ One Microsoft Way                                       ║
  11. *       ║ Redmond, WA  98052                                      ║
  12. *       ║                                                         ║
  13. *       ║ Description:                                            ║
  14. *       ║ This program was automatically generated by GENSCRN.    ║
  15. *       ║                                                         ║
  16. *       ╙─────────────────────────────────────────────────────────╜
  17.  
  18. PARAMETERS m.cardid
  19.  
  20. *       ╓─────────────────────────────────────────────────────────╖
  21. *       ║                                                         ║
  22. *       ║         ADDUSERS/Windows Setup Code - SECTION 1         ║
  23. *       ║                                                         ║
  24. *       ╙─────────────────────────────────────────────────────────╜
  25. *
  26.  
  27. #REGION 1
  28.  
  29.  
  30. #REGION 0
  31. REGIONAL m.currarea, m.talkstat, m.compstat
  32.  
  33. IF SET("TALK") = "ON"
  34.     SET TALK OFF
  35.     m.talkstat = "ON"
  36. ELSE
  37.     m.talkstat = "OFF"
  38. ENDIF
  39. m.compstat = SET("COMPATIBLE")
  40. SET COMPATIBLE FOXPLUS
  41.  
  42. m.rborder = SET("READBORDER")
  43. SET READBORDER ON
  44.  
  45. *       ╓─────────────────────────────────────────────────────────╖
  46. *       ║                                                         ║
  47. *       ║               Windows Window definitions                ║
  48. *       ║                                                         ║
  49. *       ╙─────────────────────────────────────────────────────────╜
  50. *
  51.  
  52. IF NOT WEXIST("_qbm0rap0q")
  53.     DEFINE WINDOW _qbm0rap0q ;
  54.         AT  0.000, 0.000  ;
  55.         SIZE 17.692,61.167 ;
  56.         FONT "MS Sans Serif", 8 ;
  57.         STYLE "B" ;
  58.         FLOAT ;
  59.         NOCLOSE ;
  60.         SHADOW ;
  61.         NOMINIMIZE ;
  62.         DOUBLE
  63.     MOVE WINDOW _qbm0rap0q CENTER
  64. ENDIF
  65.  
  66.  
  67. *       ╓─────────────────────────────────────────────────────────╖
  68. *       ║                                                         ║
  69. *       ║         ADDUSERS/Windows Setup Code - SECTION 2         ║
  70. *       ║                                                         ║
  71. *       ╙─────────────────────────────────────────────────────────╜
  72. *
  73.  
  74. #REGION 1
  75. PRIVATE m.mover, m.user, m.allcnt, m.saverec, m.usrcnt, m.limit, ;
  76.     allusers, m.status, m.savearea,  m.userlast, m.userfirst
  77.  
  78. SET EXACT ON
  79. m.user = 1
  80. m.userlast = ""
  81. m.status   = .T.
  82. m.savearea = SELECT()
  83. DIMENSION allusers[1,3]
  84. allusers = ""
  85.  
  86. IF NOT locatedb("carduser",1)
  87.     RETURN
  88. ENDIF
  89.  
  90. m.saverec = RECNO()
  91. SELECT DISTINCT lastname, firstname, ;
  92.     ALLTRIM(firstname)+" "+ALLTRIM(lastname) ;
  93.     FROM carduser ;
  94.     INTO ARRAY allusers
  95.  
  96. m.allcnt = ALEN(allusers,1)
  97.  
  98. IF EMPTY(users)
  99.     m.usrcnt = 0
  100. ELSE
  101.     m.usrcnt = 1
  102.     m.limit  = ALEN(users,1)
  103.     DO WHILE m.usrcnt <= m.limit
  104.         IF EMPTY(users[m.usrcnt,1])
  105.             EXIT
  106.         ENDIF
  107.         m.usrcnt = m.usrcnt + 1
  108.     ENDDO
  109.     m.usrcnt = m.usrcnt - 1
  110. ENDIF
  111.  
  112. *       ╓─────────────────────────────────────────────────────────╖
  113. *       ║                                                         ║
  114. *       ║             ADDUSERS/Windows Screen Layout              ║
  115. *       ║                                                         ║
  116. *       ╙─────────────────────────────────────────────────────────╜
  117. *
  118.  
  119. #REGION 1
  120. IF WVISIBLE("_qbm0rap0q")
  121.     ACTIVATE WINDOW _qbm0rap0q SAME
  122. ELSE
  123.     ACTIVATE WINDOW _qbm0rap0q NOSHOW
  124. ENDIF
  125. @ 14.385,16.500 SAY "Last:" ;
  126.     SIZE 1.000,4.833, 0.000 ;
  127.     FONT "MS Sans Serif", 8 ;
  128.     STYLE "B"
  129. @ 14.385,3.000 SAY "First:" ;
  130.     SIZE 1.000,4.833, 0.000 ;
  131.     FONT "MS Sans Serif", 8 ;
  132.     STYLE "B"
  133. @ 2.308,23.667 GET m.mover ;
  134.     PICTURE "@*VN \<Move =>;<= \<Remove;\\Remove \<All" ;
  135.     SIZE 1.769,14.167,1.000 ;
  136.     DEFAULT 1 ;
  137.     FONT "MS Sans Serif", 8 ;
  138.     STYLE "B" ;
  139.     VALID _qbm0rapvk()
  140. @ 1.923,2.000 GET m.alluser ;
  141.      PICTURE "@&N" ;
  142.     FROM allusers ;
  143.     RANGE 3, m.allcnt ;
  144.     SIZE 8.077,24.400 ;
  145.     DEFAULT 1 ;
  146.     FONT "MS Sans Serif", 8 ;
  147.     VALID _qbm0raq62()
  148. @ 1.923,39.167 GET m.user ;
  149.      PICTURE "@&N" ;
  150.     FROM users ;
  151.     RANGE 3, usrcnt ;
  152.     SIZE 8.077,24.400 ;
  153.     DEFAULT 1 ;
  154.     FONT "MS Sans Serif", 8 ;
  155.     VALID _qbm0raqcn()
  156. @ 14.538,43.000 GET m.gethelp ;
  157.     PICTURE "@*HN \<Help" ;
  158.     SIZE 1.769,10.500,1.000 ;
  159.     DEFAULT 1 ;
  160.     FONT "MS Sans Serif", 8 ;
  161.     STYLE "B" ;
  162.     VALID _qbm0raqhd()
  163. @ 15.769,16.667 GET m.userlast ;
  164.     SIZE 1.000,22.000 ;
  165.     DEFAULT " " ;
  166.     FONT "MS Sans Serif", 8 ;
  167.     PICTURE "@K" ;
  168.     WHEN _qbm0raql3() ;
  169.     VALID _qbm0raqnt() ;
  170.     ERROR "Blank entries are not allowed" ;
  171.     DISABLE
  172. @ 15.769,3.167 GET m.userfirst ;
  173.     SIZE 1.000,15.000 ;
  174.     DEFAULT " " ;
  175.     FONT "MS Sans Serif", 8 ;
  176.     PICTURE "@K" ;
  177.     WHEN _qbm0raqrv() ;
  178.     VALID _qbm0raqw9() ;
  179.     DISABLE
  180. @ 0.538,39.000 SAY "Authorized Users:" ;
  181.     SIZE 1.000,16.833, 0.000 ;
  182.     FONT "MS Sans Serif", 8 ;
  183.     STYLE "B"
  184. @ 0.538,1.833 SAY "All Users:" ;
  185.     SIZE 1.000,9.167, 0.000 ;
  186.     FONT "MS Sans Serif", 8 ;
  187.     STYLE "B"
  188. @ 11.538,3.833 GET zx ;
  189.     PICTURE "@*HN \<New Name" ;
  190.     SIZE 1.769,14.333,0.667 ;
  191.     DEFAULT 1 ;
  192.     FONT "MS Sans Serif", 8 ;
  193.     STYLE "B" ;
  194.     VALID _qbm0rarcb()
  195. @ 11.769,43.000 GET zy ;
  196.     PICTURE "@*HN \!\<OK" ;
  197.     SIZE 1.769,10.500,0.667 ;
  198.     DEFAULT 1 ;
  199.     FONT "MS Sans Serif", 8 ;
  200.     STYLE "B" ;
  201.     VALID _qbm0rarga()
  202.  
  203. IF NOT WVISIBLE("_qbm0rap0q")
  204.     ACTIVATE WINDOW _qbm0rap0q
  205. ENDIF
  206.  
  207. READ CYCLE MODAL ;
  208.     WHEN _qbm0rark9() ;
  209.     ACTIVATE _qbm0rarkc() ;
  210.     SHOW _qbm0rarki()
  211.  
  212. RELEASE WINDOW _qbm0rap0q
  213.  
  214. #REGION 0
  215.  
  216. SET READBORDER &rborder
  217.  
  218. IF m.talkstat = "ON"
  219.     SET TALK ON
  220. ENDIF
  221. IF m.compstat = "ON"
  222.     SET COMPATIBLE ON
  223. ENDIF
  224.  
  225.  
  226. *       ╓─────────────────────────────────────────────────────────╖
  227. *       ║                                                         ║
  228. *       ║              ADDUSERS/Windows Cleanup Code              ║
  229. *       ║                                                         ║
  230. *       ╙─────────────────────────────────────────────────────────╜
  231. *
  232.  
  233. #REGION 1
  234. SET EXACT OFF
  235.  
  236. ON KEY LABEL esc
  237. SELECT (m.savearea)
  238. RETURN m.status
  239.  
  240. *
  241. * ALREADYIN - Check if name already in the list.
  242. *
  243.  
  244.  
  245. *       ╓─────────────────────────────────────────────────────────╖
  246. *       ║                                                         ║
  247. *       ║  ADDUSERS/Windows Supporting Procedures and Functions   ║
  248. *       ║                                                         ║
  249. *       ╙─────────────────────────────────────────────────────────╜
  250. *
  251.  
  252. #REGION 1
  253. FUNCTION alreadyin
  254. PARAMETER m.newname
  255. SET EXACT OFF
  256. IF ASCAN(users, ALLTRIM(m.newname)) <> 0
  257.     RETURN .T.
  258. ENDIF
  259. SET EXACT ON
  260. RETURN .F.
  261.  
  262. *
  263. * ESCHANDLER - Handle ESC-aping out of a field.
  264. *
  265. PROCEDURE eschandler
  266. ON KEY LABEL esc
  267. m.userlast  = SPACE(22)
  268. m.userfirst = SPACE(14)
  269. SHOW GET m.userlast DISABLE
  270. SHOW GET m.userfirst DISABLE
  271.  
  272.  
  273. *       ╓─────────────────────────────────────────────────────────╖
  274. *       ║                                                         ║
  275. *       ║ _QBM0RAPVK           m.mover VALID                      ║
  276. *       ║                                                         ║
  277. *       ║ Function Origin:                                        ║
  278. *       ║                                                         ║
  279. *       ║ From Platform:       Windows                            ║
  280. *       ║ From Screen:         ADDUSERS,     Record Number:    4  ║
  281. *       ║ Variable:            m.mover                            ║
  282. *       ║ Called By:           VALID Clause                       ║
  283. *       ║ Snippet Number:      1                                  ║
  284. *       ║                                                         ║
  285. *       ╙─────────────────────────────────────────────────────────╜
  286. *
  287. FUNCTION _qbm0rapvk     &&  m.mover VALID
  288. #REGION 1
  289. DO CASE
  290. CASE m.mover = 1
  291.     IF alreadyin(allusers[m.alluser,3]))
  292.         WAIT WINDOW "Duplicate entry" NOWAIT
  293.         RETURN .F.
  294.     ENDIF
  295.     IF m.usrcnt+1 > ALEN(users,1)
  296.         DIMENSION users[m.usrcnt+1,3]
  297.     ENDIF
  298.     users[m.usrcnt+1,1] = allusers[m.alluser,1]
  299.     users[m.usrcnt+1,2] = allusers[m.alluser,2]
  300.     users[m.usrcnt+1,3] = allusers[m.alluser,3]
  301.     m.usrcnt = m.usrcnt + 1
  302.     m.user = m.usrcnt
  303.     SHOW GET m.mover, 2 ENABLE
  304.     IF m.usrcnt > 1
  305.         SHOW GET m.mover, 3 ENABLE
  306.     ENDIF
  307.     SHOW GET m.user
  308. CASE m.mover = 2
  309.     = ADEL(users, m.user)
  310.     m.usrcnt = m.usrcnt - 1
  311.     m.user = m.usrcnt
  312.     
  313.     IF m.usrcnt = 0
  314.         SHOW GET m.mover, 2 DISABLE
  315.         SHOW GET m.mover, 3 DISABLE
  316.     ENDIF
  317.     SHOW GET m.user
  318. CASE m.mover = 3
  319.     users = ""
  320.     m.usrcnt = 0
  321.     SHOW GET m.mover, 2 DISABLE
  322.     SHOW GET m.mover, 3 DISABLE
  323.     SHOW GET m.user
  324. CASE m.mover = 5
  325.     CLEAR READ
  326. ENDCASE
  327.  
  328.  
  329. *       ╓─────────────────────────────────────────────────────────╖
  330. *       ║                                                         ║
  331. *       ║ _QBM0RAQ62           m.alluser VALID                    ║
  332. *       ║                                                         ║
  333. *       ║ Function Origin:                                        ║
  334. *       ║                                                         ║
  335. *       ║ From Platform:       Windows                            ║
  336. *       ║ From Screen:         ADDUSERS,     Record Number:    5  ║
  337. *       ║ Variable:            m.alluser                          ║
  338. *       ║ Called By:           VALID Clause                       ║
  339. *       ║ Snippet Number:      2                                  ║
  340. *       ║                                                         ║
  341. *       ╙─────────────────────────────────────────────────────────╜
  342. *
  343. FUNCTION _qbm0raq62     &&  m.alluser VALID
  344. #REGION 1
  345. IF alreadyin(allusers[m.alluser,3])
  346.     WAIT WINDOW "Duplicate entry" NOWAIT
  347.     RETURN .F.
  348. ENDIF
  349. IF m.usrcnt+1 > ALEN(users,1)
  350.     DIMENSION users[m.usrcnt+1,3]
  351. ENDIF
  352.     
  353. users[m.usrcnt+1,1] = allusers[m.alluser,1]
  354. users[m.usrcnt+1,2] = allusers[m.alluser,2]
  355. users[m.usrcnt+1,3] = allusers[m.alluser,3]
  356. m.usrcnt = m.usrcnt + 1
  357. m.user = m.usrcnt
  358.  
  359. SHOW GET m.mover, 2 ENABLE
  360. IF m.usrcnt > 1
  361.     SHOW GET m.mover, 3 ENABLE
  362. ENDIF
  363. SHOW GET m.user
  364.         
  365.  
  366.  
  367. *       ╓─────────────────────────────────────────────────────────╖
  368. *       ║                                                         ║
  369. *       ║ _QBM0RAQCN           m.user VALID                       ║
  370. *       ║                                                         ║
  371. *       ║ Function Origin:                                        ║
  372. *       ║                                                         ║
  373. *       ║ From Platform:       Windows                            ║
  374. *       ║ From Screen:         ADDUSERS,     Record Number:    6  ║
  375. *       ║ Variable:            m.user                             ║
  376. *       ║ Called By:           VALID Clause                       ║
  377. *       ║ Snippet Number:      3                                  ║
  378. *       ║                                                         ║
  379. *       ╙─────────────────────────────────────────────────────────╜
  380. *
  381. FUNCTION _qbm0raqcn     &&  m.user VALID
  382. #REGION 1
  383. = ADEL(users, m.user)
  384. m.usrcnt = m.usrcnt - 1
  385. m.user = m.usrcnt
  386.         
  387. IF m.usrcnt = 0
  388.     SHOW GET m.mover, 2 DISABLE
  389.     SHOW GET m.mover, 3 DISABLE
  390. ENDIF
  391. SHOW GET m.user
  392.  
  393.  
  394. *       ╓─────────────────────────────────────────────────────────╖
  395. *       ║                                                         ║
  396. *       ║ _QBM0RAQHD           m.gethelp VALID                    ║
  397. *       ║                                                         ║
  398. *       ║ Function Origin:                                        ║
  399. *       ║                                                         ║
  400. *       ║ From Platform:       Windows                            ║
  401. *       ║ From Screen:         ADDUSERS,     Record Number:    7  ║
  402. *       ║ Variable:            m.gethelp                          ║
  403. *       ║ Called By:           VALID Clause                       ║
  404. *       ║ Snippet Number:      4                                  ║
  405. *       ║                                                         ║
  406. *       ╙─────────────────────────────────────────────────────────╜
  407. *
  408. FUNCTION _qbm0raqhd     &&  m.gethelp VALID
  409. #REGION 1
  410. HELP ■ Add/Modify card users
  411.  
  412. *       ╓─────────────────────────────────────────────────────────╖
  413. *       ║                                                         ║
  414. *       ║ _QBM0RAQL3           m.userlast WHEN                    ║
  415. *       ║                                                         ║
  416. *       ║ Function Origin:                                        ║
  417. *       ║                                                         ║
  418. *       ║ From Platform:       Windows                            ║
  419. *       ║ From Screen:         ADDUSERS,     Record Number:    8  ║
  420. *       ║ Variable:            m.userlast                         ║
  421. *       ║ Called By:           WHEN Clause                        ║
  422. *       ║ Snippet Number:      5                                  ║
  423. *       ║                                                         ║
  424. *       ╙─────────────────────────────────────────────────────────╜
  425. *
  426. FUNCTION _qbm0raql3     &&  m.userlast WHEN
  427. #REGION 1
  428. ON KEY LABEL esc DO eschandler
  429.  
  430.  
  431. *       ╓─────────────────────────────────────────────────────────╖
  432. *       ║                                                         ║
  433. *       ║ _QBM0RAQNT           m.userlast VALID                   ║
  434. *       ║                                                         ║
  435. *       ║ Function Origin:                                        ║
  436. *       ║                                                         ║
  437. *       ║ From Platform:       Windows                            ║
  438. *       ║ From Screen:         ADDUSERS,     Record Number:    8  ║
  439. *       ║ Variable:            m.userlast                         ║
  440. *       ║ Called By:           VALID Clause                       ║
  441. *       ║ Snippet Number:      6                                  ║
  442. *       ║                                                         ║
  443. *       ╙─────────────────────────────────────────────────────────╜
  444. *
  445. FUNCTION _qbm0raqnt     &&  m.userlast VALID
  446. #REGION 1
  447. IF EMPTY(m.userlast)
  448.     RETURN .F.
  449. ENDIF
  450.  
  451. SHOW GET m.userfirst ENABLE
  452. _CUROBJ = OBJNUM(m.userfirst)
  453.  
  454. *       ╓─────────────────────────────────────────────────────────╖
  455. *       ║                                                         ║
  456. *       ║ _QBM0RAQRV           m.userfirst WHEN                   ║
  457. *       ║                                                         ║
  458. *       ║ Function Origin:                                        ║
  459. *       ║                                                         ║
  460. *       ║ From Platform:       Windows                            ║
  461. *       ║ From Screen:         ADDUSERS,     Record Number:    9  ║
  462. *       ║ Variable:            m.userfirst                        ║
  463. *       ║ Called By:           WHEN Clause                        ║
  464. *       ║ Snippet Number:      7                                  ║
  465. *       ║                                                         ║
  466. *       ╙─────────────────────────────────────────────────────────╜
  467. *
  468. FUNCTION _qbm0raqrv     &&  m.userfirst WHEN
  469. #REGION 1
  470. ON KEY LABEL esc DO eschandler
  471.  
  472. *       ╓─────────────────────────────────────────────────────────╖
  473. *       ║                                                         ║
  474. *       ║ _QBM0RAQW9           m.userfirst VALID                  ║
  475. *       ║                                                         ║
  476. *       ║ Function Origin:                                        ║
  477. *       ║                                                         ║
  478. *       ║ From Platform:       Windows                            ║
  479. *       ║ From Screen:         ADDUSERS,     Record Number:    9  ║
  480. *       ║ Variable:            m.userfirst                        ║
  481. *       ║ Called By:           VALID Clause                       ║
  482. *       ║ Snippet Number:      8                                  ║
  483. *       ║                                                         ║
  484. *       ╙─────────────────────────────────────────────────────────╜
  485. *
  486. FUNCTION _qbm0raqw9     &&  m.userfirst VALID
  487. #REGION 1
  488. IF EMPTY(m.userfirst)
  489.     WAIT WINDOW "Blank entries are not allowed" NOWAIT
  490.     RETURN .F.
  491. ENDIF
  492. IF alreadyin(ALLTRIM(m.userfirst)+" "+ALLTRIM(m.userlast))
  493.     WAIT WINDOW "Duplicate entry" NOWAIT
  494.     RETURN .F.
  495. ENDIF
  496.  
  497. IF m.usrcnt+1 > ALEN(users,1)
  498.     DIMENSION users[m.usrcnt+1,3]
  499. ENDIF
  500.     
  501. users[m.usrcnt+1,1] = m.userlast
  502. users[m.usrcnt+1,2] = m.userfirst
  503. users[m.usrcnt+1,3] = ALLTRIM(users[m.usrcnt+1,2])+;
  504.     " "+ALLTRIM(users[m.usrcnt+1,1])
  505.  
  506. m.usrcnt = m.usrcnt + 1
  507. m.user = m.usrcnt
  508.     
  509. SHOW GET m.mover, 2 ENABLE
  510. IF m.usrcnt > 1
  511.     SHOW GET m.mover, 3 ENABLE
  512. ENDIF
  513. SHOW GET m.user
  514.     
  515. m.userlast  = SPACE(22)
  516. m.userfirst = SPACE(14)
  517. SHOW GET m.userlast DISABLE
  518. SHOW GET m.userfirst DISABLE
  519.  
  520. _CUROBJ = OBJNUM(m.mover)
  521.  
  522.  
  523. *       ╓─────────────────────────────────────────────────────────╖
  524. *       ║                                                         ║
  525. *       ║ _QBM0RARCB           zx VALID                           ║
  526. *       ║                                                         ║
  527. *       ║ Function Origin:                                        ║
  528. *       ║                                                         ║
  529. *       ║ From Platform:       Windows                            ║
  530. *       ║ From Screen:         ADDUSERS,     Record Number:   12  ║
  531. *       ║ Variable:            zx                                 ║
  532. *       ║ Called By:           VALID Clause                       ║
  533. *       ║ Snippet Number:      9                                  ║
  534. *       ║                                                         ║
  535. *       ╙─────────────────────────────────────────────────────────╜
  536. *
  537. FUNCTION _qbm0rarcb     &&  zx VALID
  538. #REGION 1
  539. m.userlast  = SPACE(22)
  540. m.userfirst = SPACE(14)
  541. SHOW GET m.userlast ENABLE
  542. _CUROBJ = OBJNUM(m.userlast)
  543.  
  544.  
  545. *       ╓─────────────────────────────────────────────────────────╖
  546. *       ║                                                         ║
  547. *       ║ _QBM0RARGA           zy VALID                           ║
  548. *       ║                                                         ║
  549. *       ║ Function Origin:                                        ║
  550. *       ║                                                         ║
  551. *       ║ From Platform:       Windows                            ║
  552. *       ║ From Screen:         ADDUSERS,     Record Number:   13  ║
  553. *       ║ Variable:            zy                                 ║
  554. *       ║ Called By:           VALID Clause                       ║
  555. *       ║ Snippet Number:      10                                 ║
  556. *       ║                                                         ║
  557. *       ╙─────────────────────────────────────────────────────────╜
  558. *
  559. FUNCTION _qbm0rarga     &&  zy VALID
  560. #REGION 1
  561. CLEAR READ
  562.  
  563. *       ╓─────────────────────────────────────────────────────────╖
  564. *       ║                                                         ║
  565. *       ║ _QBM0RARK9           Read Level When                    ║
  566. *       ║                                                         ║
  567. *       ║ Function Origin:                                        ║
  568. *       ║                                                         ║
  569. *       ║                                                         ║
  570. *       ║ From Platform:       Windows                            ║
  571. *       ║ From Screen:         ADDUSERS                           ║
  572. *       ║ Called By:           READ Statement                     ║
  573. *       ║ Snippet Number:      11                                 ║
  574. *       ║                                                         ║
  575. *       ╙─────────────────────────────────────────────────────────╜
  576. *
  577. FUNCTION _qbm0rark9     && Read Level When
  578. *
  579. * When Code from screen: ADDUSERS
  580. *
  581. #REGION 1
  582. IF EMPTY(m.cardid)
  583.     WAIT WINDOW "You must enter card id first" NOWAIT
  584.     m.status = .F.
  585.     RETURN .F.
  586. ENDIF
  587.  
  588. *       ╓─────────────────────────────────────────────────────────╖
  589. *       ║                                                         ║
  590. *       ║ _QBM0RARKC           Read Level Activate                ║
  591. *       ║                                                         ║
  592. *       ║ Function Origin:                                        ║
  593. *       ║                                                         ║
  594. *       ║                                                         ║
  595. *       ║ From Platform:       Windows                            ║
  596. *       ║ From Screen:         ADDUSERS                           ║
  597. *       ║ Called By:           READ Statement                     ║
  598. *       ║ Snippet Number:      12                                 ║
  599. *       ║                                                         ║
  600. *       ╙─────────────────────────────────────────────────────────╜
  601. *
  602. FUNCTION _qbm0rarkc     && Read Level Activate
  603. *
  604. * Activate Code from screen: ADDUSERS
  605. *
  606. #REGION 1
  607. SHOW GET m.mover, 1 PROMPT "\<Move =>"
  608. SHOW GET m.mover, 2 PROMPT "<= \<Remove"
  609.  
  610. IF EMPTY(allusers)
  611.     SHOW GET m.alluser DISABLE
  612. ENDIF
  613. IF m.usrcnt=0
  614.     SHOW GET m.mover, 2 DISABLE
  615. ENDIF
  616.  
  617. *       ╓─────────────────────────────────────────────────────────╖
  618. *       ║                                                         ║
  619. *       ║ _QBM0RARKI           Read Level Show                    ║
  620. *       ║                                                         ║
  621. *       ║ Function Origin:                                        ║
  622. *       ║                                                         ║
  623. *       ║                                                         ║
  624. *       ║ From Platform:       Windows                            ║
  625. *       ║ From Screen:         ADDUSERS                           ║
  626. *       ║ Called By:           READ Statement                     ║
  627. *       ║ Snippet Number:      13                                 ║
  628. *       ║                                                         ║
  629. *       ╙─────────────────────────────────────────────────────────╜
  630. *
  631. FUNCTION _qbm0rarki     && Read Level Show
  632. PRIVATE currwind
  633. STORE WOUTPUT() TO currwind
  634. *
  635. * Show Code from screen: ADDUSERS
  636. *
  637. #REGION 1
  638. IF m.usrcnt > 1
  639.     SHOW GET m.mover, 3 ENABLE
  640. ENDIF
  641. IF NOT EMPTY(currwind)
  642.     ACTIVATE WINDOW (currwind) SAME
  643. ENDIF